home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / misc / shellscr / src / ep.sd < prev    next >
Text File  |  1999-11-30  |  369b  |  26 lines
  1. ##stringtype E
  2.  
  3. OPT MODULE
  4.  
  5. MODULE 'locale'
  6.  
  7. OBJECT catstr
  8.   id, str
  9. ENDOBJECT
  10.  
  11. EXPORT CONST %i=%d
  12.  
  13. EXPORT PROC get_str(cat, id)
  14.   DEF str=NIL, block:PTR TO catstr
  15.  
  16.   block := [
  17.     %d, %s,
  18.     NIL, NIL
  19.   ]
  20.  
  21.   WHILE block.str
  22.     IF block.id = id THEN str := block.str
  23.     EXIT block.id++ = id
  24.   ENDWHILE
  25. ENDPROC IF localebase THEN GetCatalogStr(cat, id, str) ELSE str
  26.